<?php

echo '<br>Internação Vinculadas '.date("d/m/Y")." - ".date("H:i:s").'<br>';

$dataVersao = array();
$erro = FALSE;
$mostrar_sql = isset($_GET['sql']) && $_GET['sql'] == 1 ? TRUE:FALSE;

$nao_gerar = 0; 
$var_destino = ''; // 4,59,252 

$sql_con = "SELECT con_cod FROM con WHERE  con_sta_atv = 'A' AND con_sta_tis = 1 ";
$con_sql = odbc_exec($bd_ingres, $sql_con);
while(odbc_fetch_row($con_sql))
{
    $var_destino .= odbc_result($con_sql,'con_cod').',';
}
$var_destino .= '0';


$sql_var = ""; // 

// erros depois corrigir envios 

//$sql_var = " and tissdt_num not in( 2134707 )";  // depois que arrumarem  a opme liberar

//$sql_var = " and tissdt_num in( 2170258  )"; 


//AND tissdt_dat_emi_gui >= '01092014'
$sql_todas_guias = "SELECT tissdt_num, tissdt_num_gui_pri, tissdt_tpo_gui_ori, tissdt_num_gui_ori, con_cod
                    FROM 	tissdt
                    WHERE tissdt_sta = 'P' 
                    AND tissdt_dat_emi_gui >= '01092014'
                    AND con_cod IN(" . $var_destino . ") 
                    AND tissdt_tpo_env = 'S' 
                    AND tissdt_tpo_gui_ori = 'I'
                    AND ifnull(tissdt_num_gui_prs,0) < 1
                    AND sto_cod not in(700,701) 
                    " . $sql_var; 
if($mostrar_sql) echo '<br> guia_todas: '.$sql_todas_guias; 
$guia_todas = odbc_exec($bd_ingres, $sql_todas_guias);
$count_envio = 0;
$total_envio = 30;
while(odbc_fetch_row($guia_todas) && $count_envio < $total_envio){ 
    
    $msg = ''; 
    
    try{

        $num_gui_pri = '';
        $snh_gui_pri = '';
        $tissdt_num = odbc_result($guia_todas, 'tissdt_num'); // uso 
        $tissdt_num_gui_pri = odbc_result($guia_todas, 'tissdt_num_gui_pri'); // uso 
        $tissdt_tpo_gui_ori = odbc_result($guia_todas, 'tissdt_tpo_gui_ori'); // uso 
        $tissdt_num_gui_ori = odbc_result($guia_todas, 'tissdt_num_gui_ori'); // uso 
        $tissdt_num_con_cod = odbc_result($guia_todas, 'con_cod'); // uso 
        
        if($tissdt_num_con_cod == '4' ||  $tissdt_num_con_cod == '59' || $tissdt_num_con_cod == '183' || $tissdt_num_con_cod == '190' || $tissdt_num_con_cod == '252'){
            
            if ($tissdt_num_gui_ori > 0){  
                $count = 0;
                if ($tissdt_tpo_gui_ori == 'I') {
                    // con_cod = " . $tissdt_num_con_cod . " AND
                    $sql_guias_principal = "SELECT tisint_num_gui_ope , tisint_snh
                                                              FROM tisint
                                                              WHERE tisint_sta = 'A'
                                                              AND tisint_num = '" . $tissdt_num_gui_ori . "'
                                                              AND (tisint_num_gui_ope <> '' OR tisint_num_gui_ope IS NOT NULL)";
                    $guia_principal = odbc_exec($bd_ingres, $sql_guias_principal);
                    while (odbc_fetch_row($guia_principal)){
                        $num_gui_pri = 'gerar';
                        $snh_gui_pri = trim(odbc_result($guia_principal, 'tisint_snh'));
                    }
                }  
            }
           
            if ($num_gui_pri <> 'gerar') {
                $nao_gerar = $nao_gerar + 1;
            } else
            if ($num_gui_pri == 'gerar') {
                
                $count_envio++;
                
                $dataVersao = array();  
                $hash = '';
                $erro = FALSE;

                $query = "SELECT con_cod_hsp_ope,con_cne, con_cgc_con FROM con WHERE con_cod = " . $tissdt_num_con_cod . "";
                $res = odbc_exec($bd_ingres, $query);
                while (odbc_fetch_row($res)) {
                    $cod_hsvp = trim(odbc_result($res, 'con_cod_hsp_ope')); // uso
                    $destino = trim(odbc_result($res, 'con_cne')); // uso
                    $con_cgc_con = trim(odbc_result($res, 'con_cgc_con'));
                }
                
                $tipoTransacao = 'SOLICITACAO_PROCEDIMENTOS';
                $dataRegistroTransacao = date("Y-m-d");
                $horaRegistroTransacao = date("h:i:s");
                $versaoPadrao = '3.02.00';//'3.01.00';
                $date_hora = date("hi");
                $data_date = date("dmY");//date("Y.m.d");
                $vrf_trn = rand(1, 10000);
                $CNPJ = "92021062000106";

                $insert_tistrn = " INSERT INTO tistrn(tistrn_num, fil_cod, emp_cod, con_cod, tistrn_dat, tistrn_hor, tistrn_tpo, tistrn_num_ori, tistrn_num_ori_prr, tistrn_ftp_nom, tistrn_ftp_cam, tistrn_ftp_sta) values (-1, 1, 1, ".$tissdt_num_con_cod.", '".$data_date."', '".$date_hora."', 'TISSDT', ".$tissdt_num.", 0, '".$vrf_trn."', '', 'E')";
                $result = odbc_exec($bd_ingres,$insert_tistrn);
                if($result == FALSE){
                    $erro = TRUE;
                    $msg = 'tissdt_num: ' . $tissdt_num . ' - Erro insert tistrn';
                }

                $query = "SELECT max(tistrn_num) as max  FROM tistrn
                                                            WHERE tistrn_num_ori = " . $tissdt_num . "
                                                            AND tistrn_tpo = 'TISSDT'
                                                            AND tistrn_hor = '" . $date_hora . "'
                                                            AND tistrn_dat = '" . $data_date . "'
                                                            AND con_cod = " . $tissdt_num_con_cod . "
                                                            AND tistrn_ftp_nom = '" . $vrf_trn . "' ";

                $sequencialtr = odbc_exec($bd_ingres, $query);
                while (odbc_fetch_row($sequencialtr)){
                    $sequencialTransacao = odbc_result($sequencialtr, 'max');
                }

                if (strlen($sequencialTransacao) == 0){
                    $erro = TRUE;
                    $msg = 'tissdt_num: ' . $tissdt_num . ' - Sem sequencial da transação';
                }


                $dataVersao['cabecalho']['identificacaoTransacao']['tipoTransacao'] = $tipoTransacao;
                $hash .= $tipoTransacao;

                $dataVersao['cabecalho']['identificacaoTransacao']['sequencialTransacao'] = $sequencialTransacao;
                $hash .= $sequencialTransacao;

                $dataVersao['cabecalho']['identificacaoTransacao']['dataRegistroTransacao'] = $dataRegistroTransacao;
                $hash .= $dataRegistroTransacao;

                $dataVersao['cabecalho']['identificacaoTransacao']['horaRegistroTransacao'] = $horaRegistroTransacao;
                $hash .= $horaRegistroTransacao;

                $dataVersao['cabecalho']['origem']['identificacaoPrestador']['CNPJ'] = $CNPJ;
                $hash .= $CNPJ;

                //$dataVersao['cabecalho']['origem']['identificacaoPrestador']['codigoPrestadorNaOperadora'] = $cod_hsvp;
                //$hash .= $cod_hsvp;

                $dataVersao['cabecalho']['destino']['registroANS'] = $destino;
                $hash .= $destino;

                $dataVersao['cabecalho']['versaoPadrao'] = $versaoPadrao;
                $hash .= $versaoPadrao;

                $sql_ingres = "SELECT
                    tissdt_num, fil_cod, emp_cod, tissdt_num_ans,
                    tissdt_dat_emi_gui,	tissdt_num_gui, tissdt_num_gui_pri, tissdt_num_crt,
                    tissdt_nom_ben, tissdt_nom_pln, tissdt_dat_vld, tissdt_num_cns,
                    tissdt_nom_cto, tissdt_cod_cto, tissdt_tpo_log_cto,	tissdt_nom_log_cto,
                    tissdt_num_end_cto,	tissdt_cpl_end_cto, tissdt_cod_ibg_cto, tissdt_nom_loc_cto,
                    tissdt_cod_unf_cto,	tissdt_cod_cep_cto, tissdt_num_cns_cto,	tissdt_nom_prf,
                    tissdt_sgl_cnl_prf,	tissdt_num_cnl_prf, tissdt_cod_unf_cnl_prf,tissdt_cbo_cod_prf, 
                    tissdt_cte_sol, tissdt_dat_sol, tissdt_hor_sol, tissdt_cod_cid,
                    tissdt_ind_cln, tissdt_obs, tissdt_num_gui_ope, tissdt_dat_aut, tissdt_snh,
                    tissdt_tel_prf, tissdt_nom_ben,tissdt_pes_ben,
                    tissdt_alt_ben,tissdt_sup_cor,tissdt_ida_ben, tissdt_sex_ben, tissdt_tpo_ori,
                    tissdt_cod_cid, tissdt_est_tum_cod_tis, tissdt_ter_trt_cod_tis,
                    tissdt_pln_ter, tissdt_num_ccl_qui_prv, tissdt_num_ccl_qui_atu, tissdt_dgn_dat,
                    tissdt_cap_fco_cod_tis, tissdt_dgn_img, tissdt_dos_dia_rad, tissdt_dos_tot_rad,
                    tissdt_num_dia_prv_trt, tissdt_dat_prv_adm_trt, tissdt_itv_ccl_qui, tissdt_tpo_qui,
                    tissdt_cod_cns_prf, tissdt_num_cnl_prf, tissdt_cod_unf_cnl_prf, tissdt_inf_rlv,
                    tissdt_num_cam_rad, tissdt_sta_rna, pac_cod, tissdt_tpooritis_sgl 
                    FROM tissdt
                    WHERE con_cod = " . $tissdt_num_con_cod . "
                    AND tissdt_tpo_env = 'S'
                    AND tissdt_sta = 'P'
                    AND tissdt_num = " . $tissdt_num . "";

                $cnsl_sdt = odbc_exec($bd_ingres, $sql_ingres);
                if($mostrar_sql) echo '<br> cnsl_sdt: '.$cnsl_sdt; 
                while (odbc_fetch_row($cnsl_sdt)) {

                    $fil_cod = trim(odbc_result($cnsl_sdt, 'fil_cod')); // uso
                    $emp_cod = trim(odbc_result($cnsl_sdt, 'emp_cod')); // uso 
                    $tissdt_num_ans = trim(odbc_result($cnsl_sdt, 'tissdt_num_ans')); // uso
                    $tissdt_dat_emi_gui = trim(date("Y-m-d", strtotime(odbc_result($cnsl_sdt, 'tissdt_dat_emi_gui')))); // uso
                    $tissdt_num_gui_ope = trim(odbc_result($cnsl_sdt, 'tissdt_num_gui_ope')); // uso
                    $tissdt_num_gui = odbc_result($cnsl_sdt, 'tissdt_num_gui'); // uso
                    $tissdt_dat_aut = trim(date("Y-m-d", strtotime(odbc_result($cnsl_sdt, 'tissdt_dat_aut')))); // uso
                    $tissdt_snh = trim(odbc_result($cnsl_sdt, 'tissdt_snh')); // uso)
                    $tissdt_tel_prf = trim(odbc_result($cnsl_sdt, 'tissdt_tel_prf')); // uso
                    $tissdt_tel_prf = str_replace(array('(',')','-',' '),array('','','',''), $tissdt_tel_prf);
                    $tissdt_num_gui_pri = trim(odbc_result($cnsl_sdt, 'tissdt_num_gui_pri')); // uso
                    $tissdt_num_crt = trim(odbc_result($cnsl_sdt, 'tissdt_num_crt')); // uso
                    $tissdt_ind_cln = trim(odbc_result($cnsl_sdt, 'tissdt_ind_cln'));
                    $tissdt_nom_ben = trim(odbc_result($cnsl_sdt, 'tissdt_nom_ben'));
                    $tissdt_pes_ben = trim(odbc_result($cnsl_sdt, 'tissdt_pes_ben'));
                    $tissdt_alt_ben = trim(odbc_result($cnsl_sdt, 'tissdt_alt_ben'));
                    $tissdt_sup_cor = trim(odbc_result($cnsl_sdt, 'tissdt_sup_cor'));
                    $tissdt_ida_ben = trim(odbc_result($cnsl_sdt, 'tissdt_ida_ben'));
                    $tissdt_sex_ben = trim(odbc_result($cnsl_sdt, 'tissdt_sex_ben'));
                    $tissdt_tpo_ori = trim(odbc_result($cnsl_sdt, 'tissdt_tpo_ori'));
                    $tissdt_cod_cid = trim(odbc_result($cnsl_sdt, 'tissdt_cod_cid'));
                    $tissdt_cod_cid = str_replace('.','', $tissdt_cod_cid); //  máximo 4 carateres, por isso retirado ponto, C77.1 para C771
                    $tissdt_est_tum_cod_tis = trim(odbc_result($cnsl_sdt, 'tissdt_est_tum_cod_tis'));
                    $tissdt_tpo_qui = trim(odbc_result($cnsl_sdt, 'tissdt_tpo_qui'));
                    $tissdt_ter_trt_cod_tis = trim(odbc_result($cnsl_sdt, 'tissdt_ter_trt_cod_tis'));
                    $tissdt_pln_ter = trim(odbc_result($cnsl_sdt, 'tissdt_pln_ter'));
                    $tissdt_dat_prv_adm_trt = trim(date("Y-m-d", strtotime(odbc_result($cnsl_sdt, 'tissdt_dat_prv_adm_trt')))); // uso
                    $tissdt_num_ccl_qui_prv = trim(odbc_result($cnsl_sdt, 'tissdt_num_ccl_qui_prv')); // uso
                    $tissdt_num_ccl_qui_atu = trim(odbc_result($cnsl_sdt, 'tissdt_num_ccl_qui_atu'));
                    $tissdt_itv_ccl_qui = trim(odbc_result($cnsl_sdt, 'tissdt_itv_ccl_qui'));
                    $tissdt_dgn_dat = trim(date("Y-m-d", strtotime(odbc_result($cnsl_sdt, 'tissdt_dgn_dat')))); // uso
                    $tissdt_cap_fco_cod_tis = trim(odbc_result($cnsl_sdt, 'tissdt_cap_fco_cod_tis'));
                    $tissdt_dgn_img = trim(odbc_result($cnsl_sdt, 'tissdt_dgn_img'));
                    $tissdt_dos_dia_rad = trim(odbc_result($cnsl_sdt, 'tissdt_dos_dia_rad'));
                    $tissdt_dos_tot_rad = trim(odbc_result($cnsl_sdt, 'tissdt_dos_tot_rad'));
                    $tissdt_num_dia_prv_trt = trim(odbc_result($cnsl_sdt, 'tissdt_num_dia_prv_trt'));
                    $tissdt_nom_cto = trim(odbc_result($cnsl_sdt, 'tissdt_nom_cto')); // uso
                    $tissdt_nom_pln = trim(odbc_result($cnsl_sdt, 'tissdt_nom_pln')); // uso
                    $tissdt_dat_vld = date("Y-m-d", strtotime(odbc_result($cnsl_sdt, 'tissdt_dat_vld'))); // uso
                    $tissdt_num_cns = trim(odbc_result($cnsl_sdt, 'tissdt_num_cns')); // uso
                    $identificadorBeneficiario = base64_encode($tissdt_num_crt); // uso
                    $tissdt_cod_cto = trim(odbc_result($cnsl_sdt, 'tissdt_cod_cto')); // uso
                    $tissdt_nom_prf = trim(odbc_result($cnsl_sdt, 'tissdt_nom_prf')); // uso
                    $tissdt_cbo_cod_prf = trim(odbc_result($cnsl_sdt, 'tissdt_cbo_cod_prf')); // uso
                    $tissdt_dat_sol = date("Y-m-d", strtotime(odbc_result($cnsl_sdt, 'tissdt_dat_sol')));
                    $tissdt_obs = trim(odbc_result($cnsl_sdt, 'tissdt_obs')); // uso
                    $tissdt_dat_sol = date("Y-m-d", strtotime(odbc_result($cnsl_sdt, 'tissdt_dat_sol')));
                    $tissdt_cod_cns_prf = trim(odbc_result($cnsl_sdt, 'tissdt_cod_cns_prf'));
                    $tissdt_num_cnl_prf = trim(odbc_result($cnsl_sdt, 'tissdt_num_cnl_prf'));
                    $tissdt_cod_unf_cnl_prf = trim(odbc_result($cnsl_sdt, 'tissdt_cod_unf_cnl_prf'));
                    $tissdt_cod_unf_cto = trim(odbc_result($cnsl_sdt, 'tissdt_cod_unf_cto'));
                    $tissdt_inf_rlv = trim(odbc_result($cnsl_sdt, 'tissdt_inf_rlv'));
                    $tissdt_num_cam_rad = trim(odbc_result($cnsl_sdt, 'tissdt_num_cam_rad'));
                    $tissdt_cte_sol = trim(odbc_result($cnsl_sdt, 'tissdt_cte_sol'));    
                    $tissdt_sgl_cnl_prf = trim(odbc_result($cnsl_sdt, 'tissdt_sgl_cnl_prf'));   
                    $tissdt_sta_rna = trim(odbc_result($cnsl_sdt, 'tissdt_sta_rna'));
                    if(strlen($tissdt_sta_rna) == 0) $tissdt_sta_rna = 'N'; 
                    $pac_cod = odbc_result($cnsl_sdt, 'pac_cod');
                    $tissdt_tpooritis_sgl = trim(odbc_result($cnsl_sdt, 'tissdt_tpooritis_sgl'));
                    
                    if ($tissdt_dat_vld == '')
                        $tissdt_dat_vld = date("Y-m-d");

                    if (strlen($tissdt_num_ans) == 0)
                        $tissdt_num_ans = '319384';
                    
                    if($tissdt_dat_prv_adm_trt == '1969-12-31') $tissdt_dat_prv_adm_trt = $tissdt_dat_emi_gui;
                    
                    if(strlen($tissdt_tel_prf) < 8) $tissdt_tel_prf = '5433164010';
                    
                    if ($tissdt_num_con_cod == 4 or $tissdt_num_con_cod == 59 or $tissdt_num_con_cod == 183 or $tissdt_num_con_cod == 190) {
                        if (strlen($tissdt_num_crt) < 1) {
                            //$tissdt_num_crt = '00424250000321006';      
                        } else if (strlen($tissdt_num_crt) > 1) {
                            while (strlen($tissdt_num_crt) < 17)
                                $tissdt_num_crt = '0' . $tissdt_num_crt; // uso
                        }
                    }
                    
                    if(strlen($tissdt_num_cns) == 0 || strlen($tissdt_num_cns) > 7){ 
                        $tissdt_num_cns = '2246988';
                    }
                    
                    if (strlen($tissdt_num_crt) < 2) {
                        $erro = TRUE;
                        $msg = 'tissdt_num: ' . $tissdt_num . ' Pac: '.$pac_cod . ' - Sem número da carteira';
                    } else if($tissdt_num_crt == '11111111111111111'){
                        $erro = TRUE;
                        $msg = 'tissdt_num: ' . $tissdt_num . ' Pac: '.$pac_cod . ' - Número da carteira: '.$tissdt_num_crt;
                    }

                    if (empty($tissdt_dat_sol) == 1 or trim(odbc_result($cnsl_sdt, 'tissdt_dat_sol')) == "") {
                        $tissdt_dat_sol = date("Y-m-d"); // uso
                    }

                    if (strlen($tissdt_cod_cto) < 2) {
                        $tissdt_cod_cto = $cod_hsvp;
                        //$erro = TRUE;
                        //$msg = 'tissdt_num: ' . $tissdt_num . ' - Sem codigo do prestador na operadora (' . $tissdt_cod_cto . ')';
                    }

                    if (strlen($tissdt_nom_prf) < 3) { 
                        $tissdt_nom_prf = 'Sem nome';
                        $erro = TRUE;
                        $msg = 'tissdt_num: ' . $tissdt_num . ' Pac: '.$pac_cod . ' - Sem nome profissional';
                    }

                    if($tissdt_dat_prv_adm_trt == '1970-01-01'){
                        $tissdt_dat_prv_adm_trt = $tissdt_dat_sol;
                    }
                    
                    if(strlen($tissdt_ind_cln) == 0) $tissdt_ind_cln = 'Sem indicacao clinica.';
 
                    if($tissdt_cte_sol == 'E') $tissdt_cte_sol = 1;
                    else $tissdt_cte_sol = 2;

                    $csp_cod_tis = 0;
                    $query = "SELECT csp_cod_tis FROM conprf WHERE csp_sgl like '".$tissdt_sgl_cnl_prf."'";
                    if($mostrar_sql) echo '<br> conprf: '.$query;
                    $result = odbc_exec($bd_ingres, $query);
                    while (odbc_fetch_row($result)) {
                        $csp_cod_tis = (int) odbc_result($result,'csp_cod_tis');
                    }

                    $unf_cod_tis = 0;
                    $query = "SELECT unf_cod_tis FROM unf WHERE unf_sig like '".$tissdt_cod_unf_cnl_prf."'";
                    if($mostrar_sql) echo '<br> unf_sig: '.$query;
                    $result = odbc_exec($bd_ingres, $query);
                    while (odbc_fetch_row($result)) {
                        $unf_cod_tis = trim(odbc_result($result,'unf_cod_tis'));
                    }
                    if($unf_cod_tis == 0) $unf_cod_tis = 43;
                    
                    // $tissdt_tpo_ate
                    
                    // seta tipo guia
                    //$tissdt_tpo_ori = 0;
                                        
                    //// solicitacaoRadioterapia
                    
                    // quimio
                    if(strlen($tissdt_tpo_qui) > 0){ 
                        $tissdt_tpo_ori = 14;
                    }                    
                    // radio
                    else if($tissdt_num_cam_rad > 0){
                        $tissdt_tpo_ori = 15;
                    }
                    // opme
                    else {
                        $sql_ingres_sol = "SELECT t.tissdt_num FROM tissdtopmsol t, pro p
                        WHERE t.tissdtopmsol_sta <> 'C' AND t.tissdt_num = " . $tissdt_num . " AND t.pro_cod = p.pro_cod "
                        . " AND t.fil_cod = " . $fil_cod . " AND t.emp_cod = " . $emp_cod . " ";
                        $cnsl_opmsol = odbc_exec($bd_ingres, $sql_ingres_sol);
                        $total = count($cnsl_opmsol);
                        while (odbc_fetch_row($cnsl_opmsol)) {
                            $tissdt_tpo_ori = 6;
                            break;
                        }                     
                    }
                    
                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['registroANS'] = $tissdt_num_ans;
                    $hash .= $tissdt_num_ans;
                    
                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['numeroGuiaPrestador'] = $tissdt_num;
                    $hash .= $tissdt_num;
                        
                    
                    if (strlen($snh_gui_pri) > 0) { // $tissdt_num_gui_pri
                        // tem que ser a senha da guia principal
                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['nrGuiaReferenciada'] = $snh_gui_pri;//$tissdt_num_gui_pri;
                        $hash .= $snh_gui_pri;//$tissdt_num_gui_pri;
                    }

                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dadosBeneficiario']['numeroCarteira'] = $tissdt_num_crt;
                    $hash .= $tissdt_num_crt;
                    
                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dadosBeneficiario']['nomeBeneficiario'] = $tissdt_nom_ben;
                    $hash .= $tissdt_nom_ben;
                    
                    

                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dadosContratadoSolicitante']['codigoPrestadorNaOperadora'] = $tissdt_cod_cto;
                    $hash .= $tissdt_cod_cto;

                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dadosContratadoSolicitante']['nomeContratado'] = $tissdt_nom_cto;
                    $hash .= $tissdt_nom_cto;

                    
                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dadosProfissionalSolicitante']['nomeProfissional'] = $tissdt_nom_prf;
                    $hash .= $tissdt_nom_prf;

                    if($csp_cod_tis == 0 || strlen($csp_cod_tis) > 2) $csp_cod_tis = '10';
                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dadosProfissionalSolicitante']['conselhoProfissional'] = $csp_cod_tis; // $tissdt_cod_cns_prf
                    $hash .= $csp_cod_tis; // $tissdt_cod_cns_prf

                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dadosProfissionalSolicitante']['numeroConselhoProfissional'] = $tissdt_num_cnl_prf;
                    $hash .= $tissdt_num_cnl_prf; 

                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dadosProfissionalSolicitante']['UF'] = $unf_cod_tis; // $tissdt_cod_unf_cnl_prf
                    $hash .= $unf_cod_tis; // $tissdt_cod_unf_cnl_prf

                    if(strlen($tissdt_cbo_cod_prf) < 2 || $tissdt_cbo_cod_prf == '999999') $tissdt_cbo_cod_prf = '225275';//'999999'; // CBO desconhecido ou não informado pelo solicitante
                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dadosProfissionalSolicitante']['CBOS'] = $tissdt_cbo_cod_prf;
                    $hash .= $tissdt_cbo_cod_prf;  
                    
                    
                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dadosInternacao']['indicacaoClinica'] = $tissdt_ind_cln;
                    $hash .= $tissdt_ind_cln;

                    

                    $count = 0;
                    $sql_ingres_pcd = "SELECT
                    tissdtpcd_qtd_pcd_sol, tissdtpcd_tab_pcd_sol, tissdtpcd_cod_pcd_sol, 
                    tissdtpcd_des_pcd_sol, tissdtpcd_num, tissdtpcd_nom_pcd_sol
                    FROM tissdtpcd
                    WHERE tissdtpcd_sta <> 'C'
                    and tissdt_num=" . $tissdt_num . " and fil_cod=" . $fil_cod . " and emp_cod=" . $emp_cod . " ";
                    $cnsl_pcd = odbc_exec($bd_ingres, $sql_ingres_pcd);
                    while (odbc_fetch_row($cnsl_pcd)) {

                        $tissdtpcd_qtd_pcd_sol = trim(odbc_result($cnsl_pcd, 'tissdtpcd_qtd_pcd_sol')); // uso
                        $tissdtpcd_tab_pcd_sol = trim(odbc_result($cnsl_pcd, 'tissdtpcd_tab_pcd_sol')); // uso
                        $tissdtpcd_cod_pcd_sol = trim(odbc_result($cnsl_pcd, 'tissdtpcd_cod_pcd_sol')); // uso
                        $tissdtpcd_des_pcd_sol = trim(odbc_result($cnsl_pcd, 'tissdtpcd_des_pcd_sol')); // uso
                        $tissdtpcd_nom_pcd_sol = trim(odbc_result($cnsl_pcd, 'tissdtpcd_nom_pcd_sol')); // uso
                        $tissdtpcd_num = odbc_result($cnsl_pcd, 'tissdtpcd_num'); // uso 

                        if($tissdtpcd_tab_pcd_sol == '0' or $tissdtpcd_tab_pcd_sol == '') $tissdtpcd_tab_pcd_sol = '00';
                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['procedimentosAdicionais_'.$count]['procedimento']['codigoTabela'] = $tissdtpcd_tab_pcd_sol; 
                        $hash .= $tissdtpcd_tab_pcd_sol; 

                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['procedimentosAdicionais_'.$count]['procedimento']['codigoProcedimento'] = $tissdtpcd_cod_pcd_sol;
                        $hash .= $tissdtpcd_cod_pcd_sol; 

                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['procedimentosAdicionais_'.$count]['procedimento']['descricaoProcedimento'] = $tissdtpcd_nom_pcd_sol;
                        $hash .= $tissdtpcd_nom_pcd_sol;

                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['procedimentosAdicionais_'.$count]['quantidadeSolicitada'] = $tissdtpcd_qtd_pcd_sol; 
                        $hash .= $tissdtpcd_qtd_pcd_sol;

                        $count++;    
                        
                        if(strlen($tissdtpcd_nom_pcd_sol) < 3) { 
                            $erro = TRUE;
                            $msg = 'tissdt_num: ' . $tissdt_num . ' Pac: '.$pac_cod . ' - Sem descrição do procedimento no convênio';
                        }

                    }

                    
                    $observacao_valor = '';
                        
                    // copia 
                    $sql_ingres_sol = "SELECT
                    tissdtopmsol_qtd, tissdtopmsol_nom_fab, money(tissdtopmsol_vlr_uni) as tissdtopmsol_vlr_uni,
                    tissdtopmsol_tab, tissdtopmsol_cod, tissdtopmsol_des, tissdtopmsol_num,
                    tissdtopmsol_opc_frn,  tissdtopmsol_via_adm, tissdtopmsol_frq_dos, tissdtopmsol_nom
                    FROM tissdtopmsol
                    WHERE tissdtopmsol_sta <> 'C'
                    AND tissdt_num = " . $tissdt_num . "
                    AND fil_cod = " . $fil_cod . "
                    AND emp_cod = " . $emp_cod . " ";
                    $cnsl_opmsol = odbc_exec($bd_ingres, $sql_ingres_sol); 
                    $total = count($cnsl_opmsol);
                    while (odbc_fetch_row($cnsl_opmsol)) {
                        $tissdtopmsol_qtd = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_qtd')); // uso
                        $tissdtopmsol_tab = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_tab')); // uso
                        $tissdtopmsol_cod = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_cod')); // uso 
                        $tissdtopmsol_des = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_des')); // uso
                        $tissdtopmsol_num = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_num')); // uso
                        $tissdtopmsol_nom = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_nom'));
                        $tissdtopmsol_vlr_uni = odbc_result($cnsl_opmsol, 'tissdtopmsol_vlr_uni'); 

                        if($tissdtopmsol_tab == '0' or $tissdtopmsol_tab == '') $tissdtpcd_tab_pcd_sol = '00';
                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['procedimentosAdicionais_'.$count]['procedimento']['codigoTabela'] = $tissdtopmsol_tab; 
                        $hash .= $tissdtopmsol_tab; 

                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['procedimentosAdicionais_'.$count]['procedimento']['codigoProcedimento'] = $tissdtopmsol_cod;
                        $hash .= $tissdtopmsol_cod; 

                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['procedimentosAdicionais_'.$count]['procedimento']['descricaoProcedimento'] = $tissdtopmsol_nom;
                        $hash .= $tissdtopmsol_nom;

                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['procedimentosAdicionais_'.$count]['quantidadeSolicitada'] = $tissdtopmsol_qtd; 
                        $hash .= $tissdtopmsol_qtd;

                        $count++; 
                        
                        if($tissdtopmsol_tab == '20' && $tissdt_tpo_ori != 14 && $tissdt_tpo_ori != 15){
                            $observacao_valor .= $tissdtopmsol_cod. '='.$tissdtopmsol_vlr_uni.' unit, ';
                        }
                        /*
                        if($tissdtopmsol_tab == '20') {
                            $erro = TRUE;
                            $msg = 'tissdt_num: ' . $tissdt_num . ' Pac: '.$pac_cod . ' - POR ENQUANTO NÃO ENVIAR MATERIAIS - VER COM DOUGLAS<br>';
                        }*/
                        
                        if (strlen($tissdtopmsol_nom) < 3) { 
                            $erro = TRUE;
                            $msg = 'tissdt_num: ' . $tissdt_num . ' Pac: '.$pac_cod . ' - Sem descrição do procedimento no convênio';
                        }
                        
                    }

                    if ($count == 0) {
                        $erro = TRUE;
                        $msg = 'tissdt_num: ' . $tissdt_num . ' Pac: '.$pac_cod . ' - Sem procedimentos';
                    }
                    
                    // solicitacaoQuimioterapia 
                    if ($tissdt_tpo_ori == 14) {
                        $count = 0;
                        $sql_ingres_sol = "SELECT
                        tissdtopmsol_qtd, tissdtopmsol_nom_fab, money(tissdtopmsol_vlr_uni),
                        tissdtopmsol_tab, tissdtopmsol_cod, tissdtopmsol_des, tissdtopmsol_num,
                        tissdtopmsol_opc_frn,  tissdtopmsol_via_adm, tissdtopmsol_frq_dos, tissdtopmsol_nom
                        FROM tissdtopmsol t, pro p
                        WHERE tissdtopmsol_sta <> 'C' AND t.pro_cod = p.pro_cod AND p.sgp_cod = 33 
                        WHERE tissdtopmsol_sta <> 'C'
                        AND tissdt_num = " . $tissdt_num . "
                        AND fil_cod = " . $fil_cod . "
                        AND emp_cod = " . $emp_cod . " ";
                        $cnsl_opmsol = odbc_exec($bd_ingres, $sql_ingres_sol);
                        $total = count($cnsl_opmsol);
                        while (odbc_fetch_row($cnsl_opmsol)) {
                            $tissdtopmsol_qtd = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_qtd')); // uso
                            $tissdtopmsol_nom_fab = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_nom_fab')); // uso 
                            $tissdtopmsol_nom_fab = str_replace("&", " ", $tissdtopmsol_nom_fab); // uso 
                            $tissdtopmsol_vlr_uni = odbc_result($cnsl_opmsol, odbc_field_name($cnsl_opmsol, 3)); // uso
                            $tissdtopmsol_tab = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_tab')); // uso
                            $tissdtopmsol_cod = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_cod')); // uso 
                            $tissdtopmsol_des = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_des')); // uso
                            $tissdtopmsol_num = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_num')); // uso
                            $tissdtopmsol_opc_frn = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_opc_frn')); // uso
                            $tissdtopmsol_via_adm = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_via_adm')); // uso     
                            $tissdtopmsol_frq_dos = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_frq_dos')); // uso 
                            $tissdtopmsol_nom = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_nom'));

                            if ($count == 0) {

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['cabecalhoAnexo']['registroANS'] = $tissdt_num_ans;
                                $hash .= $tissdt_num_ans;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['cabecalhoAnexo']['numeroGuiaAnexo'] = $tissdt_num;//$tissdt_num_gui;
                                $hash .= $tissdt_num;//$tissdt_num_gui;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['cabecalhoAnexo']['numeroGuiaReferenciada'] = $tissdt_num;//$tissdt_num_gui_pri;
                                $hash .= $tissdt_num;//$tissdt_num_gui_pri;

     
                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['cabecalhoAnexo']['dataSolicitacao'] = $tissdt_dat_emi_gui;
                                $hash .= $tissdt_dat_emi_gui;

                                if(strlen($tissdt_dat_aut) > 0 && $tissdt_dat_aut != '1970-01-01')
                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['cabecalhoAnexo']['dataAutorizacao'] = $tissdt_dat_aut;
                                $hash .= $tissdt_dat_aut;


                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['dadosBeneficiario']['numeroCarteira'] = $tissdt_num_crt;
                                $hash .= $tissdt_num_crt;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['dadosBeneficiario']['atendimentoRN'] = $tissdt_sta_rna;
                                $hash .= $tissdt_sta_rna;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['dadosBeneficiario']['nomeBeneficiario'] = $tissdt_nom_ben;
                                $hash .= $tissdt_nom_ben;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['dadosComplementaresBeneficiario']['peso'] = $tissdt_pes_ben;
                                $hash .= $tissdt_pes_ben;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['dadosComplementaresBeneficiario']['altura'] = $tissdt_alt_ben;
                                $hash .= $tissdt_alt_ben;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['dadosComplementaresBeneficiario']['superficieCorporal'] = $tissdt_sup_cor;
                                $hash .= $tissdt_sup_cor;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['dadosComplementaresBeneficiario']['idade'] = $tissdt_ida_ben;
                                $hash .= $tissdt_ida_ben;

                                if($tissdt_sex_ben == 'M') $tissdt_sex_ben = 1;
                                else If($tissdt_sex_ben == 'F') $tissdt_sex_ben = 3;
                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['dadosComplementaresBeneficiario']['sexo'] = $tissdt_sex_ben;
                                $hash .= $tissdt_sex_ben;


                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['medicoSolicitante']['nomeProfissional'] = $tissdt_nom_prf;
                                $hash .= $tissdt_nom_prf;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['medicoSolicitante']['telefoneProfissional'] = $tissdt_tel_prf;
                                $hash .= $tissdt_tel_prf;

                                if(strlen($tissdt_cod_cid) > 0){
                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['diagnosticoOncologicoQuimioterapia']['diagQuimio']['dataDiagnostico'] = $tissdt_dgn_dat;
                                    $hash .= $tissdt_dgn_dat;

                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['diagnosticoOncologicoQuimioterapia']['diagQuimio']['diagnosticoCID'] = $tissdt_cod_cid;
                                    $hash .= $tissdt_cod_cid;

                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['diagnosticoOncologicoQuimioterapia']['diagQuimio']['estadiamento'] = $tissdt_est_tum_cod_tis;
                                    $hash .= $tissdt_est_tum_cod_tis;
                                    
                                    if((int)$tissdt_ter_trt_cod_tis == 0) $tissdt_ter_trt_cod_tis = 1; 
                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['diagnosticoOncologicoQuimioterapia']['diagQuimio']['finalidade'] = $tissdt_ter_trt_cod_tis;
                                    $hash .= $tissdt_ter_trt_cod_tis;

                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['diagnosticoOncologicoQuimioterapia']['diagQuimio']['ecog'] = $tissdt_cap_fco_cod_tis;
                                    $hash .= $tissdt_cap_fco_cod_tis;
                                    
                                    if(strlen($tissdt_ind_cln) > 0){
                                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['diagnosticoOncologicoQuimioterapia']['diagQuimio']['diagnosticoHispatologico'] = $tissdt_ind_cln;
                                        $hash .= $tissdt_ind_cln;
                                    }
                                    
                                    if(strlen($tissdt_inf_rlv) > 0){
                                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['diagnosticoOncologicoQuimioterapia']['diagQuimio']['infoRelevantes'] = $tissdt_inf_rlv;
                                        $hash .= $tissdt_inf_rlv;
                                    }
                                }    

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['diagnosticoOncologicoQuimioterapia']['tipoQuimioterapia'] = $tissdt_tpo_qui;
                                $hash .= $tissdt_tpo_qui;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['diagnosticoOncologicoQuimioterapia']['planoTerapeutico'] = $tissdt_pln_ter;
                                $hash .= $tissdt_pln_ter; 
                            }

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['drogasSolicitadas_'.$count]['drogaSolicitada']['dataProvavel'] = $tissdt_dat_prv_adm_trt; 
                            $hash .= $tissdt_dat_prv_adm_trt;

                            if($tissdtopmsol_tab < 1) $tissdtopmsol_tab = '20';
                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['drogasSolicitadas_'.$count]['drogaSolicitada']['identificacao']['codigoTabela'] = $tissdtopmsol_tab;
                            $hash .= $tissdtopmsol_tab;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['drogasSolicitadas_'.$count]['drogaSolicitada']['identificacao']['codigoProcedimento'] = $tissdtopmsol_cod;
                            $hash .= $tissdtopmsol_cod;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['drogasSolicitadas_'.$count]['drogaSolicitada']['identificacao']['descricaoProcedimento'] = $tissdtopmsol_nom;
                            $hash .= $tissdtopmsol_nom;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['drogasSolicitadas_'.$count]['drogaSolicitada']['qtDoses'] = $tissdtopmsol_qtd;
                            $hash .= $tissdtopmsol_qtd;

                            if((int)$tissdtopmsol_via_adm == 0) $tissdtopmsol_via_adm = 35;
                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['drogasSolicitadas_'.$count]['drogaSolicitada']['viaAdministracao'] = $tissdtopmsol_via_adm;
                            $hash .= $tissdtopmsol_via_adm; 

                            if($tissdtopmsol_frq_dos <= 0) $tissdtopmsol_frq_dos = 1;
                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['drogasSolicitadas_'.$count]['drogaSolicitada']['frequencia'] = $tissdtopmsol_frq_dos;
                            $hash .= $tissdtopmsol_frq_dos; 

                            $count++;  
      
                        }

                        if ($count > 0) { 

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['numeroCiclos'] = $tissdt_num_ccl_qui_prv;
                            $hash .= $tissdt_num_ccl_qui_prv;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['cicloAtual'] = $tissdt_num_ccl_qui_atu;
                            $hash .= $tissdt_num_ccl_qui_atu;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoQuimioterapia']['intervaloCiclos'] = $tissdt_itv_ccl_qui;
                            $hash .= $tissdt_itv_ccl_qui;
                        }
                    }

                    // solicitacaoRadioterapia
                    if ($tissdt_tpo_ori == 15) {
                        $count = 0;
                        $sql_ingres_pcd = "SELECT
                        tissdtpcd_qtd_pcd_sol, tissdtpcd_tab_pcd_sol, tissdtpcd_cod_pcd_sol, 
                        tissdtpcd_des_pcd_sol, tissdtpcd_num, tissdtpcd_nom_pcd_sol
                        FROM tissdtpcd
                        WHERE tissdtpcd_sta <> 'C'
                        and tissdt_num=" . $tissdt_num . " and fil_cod=" . $fil_cod . " and emp_cod=" . $emp_cod ;
                        $cnsl_pcd = odbc_exec($bd_ingres, $sql_ingres_pcd);
                        while (odbc_fetch_row($cnsl_pcd)) {

                            $tissdtpcd_qtd_pcd_sol = trim(odbc_result($cnsl_pcd, 'tissdtpcd_qtd_pcd_sol')); // uso
                            $tissdtpcd_tab_pcd_sol = trim(odbc_result($cnsl_pcd, 'tissdtpcd_tab_pcd_sol')); // uso
                            $tissdtpcd_cod_pcd_sol = trim(odbc_result($cnsl_pcd, 'tissdtpcd_cod_pcd_sol')); // uso
                            $tissdtpcd_des_pcd_sol = trim(odbc_result($cnsl_pcd, 'tissdtpcd_des_pcd_sol')); // uso
                            $tissdtpcd_nom_pcd_sol = trim(odbc_result($cnsl_pcd, 'tissdtpcd_nom_pcd_sol')); // uso
                            $tissdtpcd_num = odbc_result($cnsl_pcd, 'tissdtpcd_num'); // uso 

                            if ($count == 0) {

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['cabecalhoAnexo']['registroANS'] = $tissdt_num_ans;
                                $hash .= $tissdt_num_ans;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['cabecalhoAnexo']['numeroGuiaAnexo'] = $tissdt_num; // $tissdt_num_gui;
                                $hash .= $tissdt_num; // $tissdt_num_gui; 

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['cabecalhoAnexo']['numeroGuiaReferenciada'] =  $tissdt_num; // $tissdt_num_gui_pri; //
                                $hash .= $tissdt_num; // $tissdt_num_gui_pri;

     
                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['cabecalhoAnexo']['dataSolicitacao'] = $tissdt_dat_emi_gui;
                                $hash .= $tissdt_dat_emi_gui;

                                if(strlen($tissdt_dat_aut) > 0 && $tissdt_dat_aut != '1970-01-01'){
                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['cabecalhoAnexo']['dataAutorizacao'] = $tissdt_dat_aut;
                                    $hash .= $tissdt_dat_aut;
                                }

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['dadosBeneficiario']['numeroCarteira'] = $tissdt_num_crt;
                                $hash .= $tissdt_num_crt;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['dadosBeneficiario']['atendimentoRN'] = $tissdt_sta_rna;
                                $hash .= $tissdt_sta_rna;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['dadosBeneficiario']['nomeBeneficiario'] = $tissdt_nom_ben;
                                $hash .= $tissdt_nom_ben;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['dadosComplementaresBeneficiario']['idade'] = $tissdt_ida_ben;
                                $hash .= $tissdt_ida_ben;

                                $tissdt_sex_ben = $tissdt_sex_ben == 'M' ? '1':'3';
                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['dadosComplementaresBeneficiario']['sexo'] = $tissdt_sex_ben;
                                $hash .= $tissdt_sex_ben;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['medicoSolicitante']['nomeProfissional'] = $tissdt_nom_prf;
                                $hash .= $tissdt_nom_prf;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['medicoSolicitante']['telefoneProfissional'] = $tissdt_tel_prf;
                                $hash .= $tissdt_tel_prf;

                                if(strlen($tissdt_dgn_dat) > 0 && $tissdt_dgn_dat != '1970-01-01'){
                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['diagnosticoOncologicoRadio']['diagRadio']['dataDiagnostico'] = $tissdt_dgn_dat;
                                    $hash .= $tissdt_dgn_dat;
                                }

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['diagnosticoOncologicoRadio']['diagRadio']['diagnosticoCID'] = $tissdt_cod_cid;
                                $hash .= $tissdt_cod_cid;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['diagnosticoOncologicoRadio']['diagRadio']['estadiamento'] = $tissdt_est_tum_cod_tis;
                                $hash .= $tissdt_est_tum_cod_tis;

                                if((int)$tissdt_ter_trt_cod_tis == 0) $tissdt_ter_trt_cod_tis = 1;
                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['diagnosticoOncologicoRadio']['diagRadio']['finalidade'] = $tissdt_ter_trt_cod_tis;
                                $hash .= $tissdt_ter_trt_cod_tis;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['diagnosticoOncologicoRadio']['diagRadio']['ecog'] = $tissdt_cap_fco_cod_tis;
                                $hash .= $tissdt_cap_fco_cod_tis;
                                
                                if(strlen($tissdt_ind_cln) > 0){
                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['diagnosticoOncologicoRadio']['diagRadio']['diagnosticoHispatologico'] = $tissdt_ind_cln;
                                    $hash .= $tissdt_ind_cln;
                                }
                                
                                if(strlen($tissdt_inf_rlv) > 0){
                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['diagnosticoOncologicoRadio']['diagRadio']['infoRelevantes'] = $tissdt_inf_rlv;
                                    $hash .= $tissdt_inf_rlv;
                                }

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['diagnosticoOncologicoRadio']['diagnosticoImagem'] = $tissdt_dgn_img;
                                $hash .= $tissdt_dgn_img;
                            }

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['procedimentosComplementares_'.$count]['procedimentoComplementar']['dataProvavel'] = $tissdt_dat_prv_adm_trt;
                            $hash .= $tissdt_dat_prv_adm_trt;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['procedimentosComplementares_'.$count]['procedimentoComplementar']['identificacao']['codigoTabela'] = $tissdtpcd_tab_pcd_sol;//$tissdtopmsol_tab;
                            $hash .= $tissdtpcd_tab_pcd_sol;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['procedimentosComplementares_'.$count]['procedimentoComplementar']['identificacao']['codigoProcedimento'] =  $tissdtpcd_cod_pcd_sol;//$tissdtopmsol_cod;
                            $hash .= $tissdtpcd_cod_pcd_sol;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['procedimentosComplementares_'.$count]['procedimentoComplementar']['identificacao']['descricaoProcedimento'] = $tissdtpcd_nom_pcd_sol;
                            $hash .= $tissdtpcd_nom_pcd_sol;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['procedimentosComplementares_'.$count]['procedimentoComplementar']['quantidade'] = $tissdtpcd_qtd_pcd_sol; // $tissdtopmsol_qtd; 
                            $hash .= $tissdtpcd_qtd_pcd_sol;


                            $count++;  
      
                        }
                        
                        if ($count > 0) { 
                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['numeroCampos'] = $tissdt_num_cam_rad; 
                            $hash .= $tissdt_num_cam_rad;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['doseCampo'] = $tissdt_dos_dia_rad;
                            $hash .= $tissdt_dos_dia_rad;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['doseTotal'] = $tissdt_dos_tot_rad;
                            $hash .= $tissdt_dos_tot_rad;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['nrDias'] = $tissdt_num_dia_prv_trt;
                            $hash .= $tissdt_num_dia_prv_trt;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoRadioterapia']['dtPrevistaInicio'] = $tissdt_dat_prv_adm_trt;
                            $hash .= $tissdt_dat_prv_adm_trt;

                        }
                    }
                    
                    // se tiver vai junto
                    // solicitacaoOPME
                    if($tissdt_tpo_ori == 6 || $tissdt_tpo_ori == 16) { 
                        $count = 0;
                        $sql_ingres_sol = "SELECT
                        tissdtopmsol_qtd, tissdtopmsol_nom_fab, money(tissdtopmsol_vlr_uni) as tissdtopmsol_vlr_uni,
                        tissdtopmsol_tab, tissdtopmsol_cod, tissdtopmsol_des, tissdtopmsol_num, tissdtopmsol_ref_frn,
                        tissdtopmsol_opc_frn, tissdtopmsol_num_aut_frn, tissdtopmsol_nom, tissdtopmsol_reg_msa
                        FROM tissdtopmsol
                        WHERE tissdtopmsol_sta <> 'C' AND tissdtopmsol_tab = 19
                        AND tissdt_num = " . $tissdt_num ;
                        $cnsl_opmsol = odbc_exec($bd_ingres, $sql_ingres_sol);
                        while (odbc_fetch_row($cnsl_opmsol)) { //inicio while tissol
                            $tissdtopmsol_qtd = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_qtd')); // uso
                            $tissdtopmsol_nom_fab = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_nom_fab')); // uso 
                            $tissdtopmsol_nom_fab = str_replace("&", " ", $tissdtopmsol_nom_fab); // uso 
                            $tissdtopmsol_vlr_uni = odbc_result($cnsl_opmsol, 'tissdtopmsol_vlr_uni'); // uso
                            $tissdtopmsol_tab = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_tab')); // uso
                            $tissdtopmsol_cod = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_cod')); // uso 
                            $tissdtopmsol_des = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_des')); // uso
                            $tissdtopmsol_num = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_num')); // uso
                            $tissdtopmsol_opc_frn = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_opc_frn')); // uso
                            $tissdtopmsol_num_aut_frn =  trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_num_aut_frn')); // uso
                            $tissdtopmsol_nom = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_nom'));
                            $tissdtopmsol_reg_msa = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_reg_msa'));
                            $tissdtopmsol_ref_frn = trim(odbc_result($cnsl_opmsol, 'tissdtopmsol_ref_frn'));
                            
                            if ($count == 0) {
                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['cabecalhoAnexo']['registroANS'] = $tissdt_num_ans;
                                $hash .= $tissdt_num_ans;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['cabecalhoAnexo']['numeroGuiaAnexo'] = $tissdt_num_gui;
                                $hash .= $tissdt_num_gui; 

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['cabecalhoAnexo']['numeroGuiaReferenciada'] = $tissdt_num;//$tissdt_num_gui_pri;
                                $hash .= $tissdt_num;//$tissdt_num_gui_pri;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['cabecalhoAnexo']['dataSolicitacao'] = $tissdt_dat_emi_gui; 
                                $hash .= $tissdt_dat_emi_gui;

                                if(strlen($tissdt_snh) > 0){
                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['cabecalhoAnexo']['senha'] = $tissdt_snh;
                                    $hash .= $tissdt_snh;
                                }

                                if(strlen($tissdt_dat_aut) > 0 && $tissdt_dat_aut != '1970-01-01'){
                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['cabecalhoAnexo']['dataAutorizacao'] = $tissdt_dat_aut;
                                    $hash .= $tissdt_dat_aut;
                                }

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['dadosBeneficiario']['numeroCarteira'] = $tissdt_num_crt;
                                $hash .= $tissdt_num_crt;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['dadosBeneficiario']['atendimentoRN'] = $tissdt_sta_rna;
                                $hash .= $tissdt_sta_rna;

                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['dadosBeneficiario']['nomeBeneficiario'] = $tissdt_nom_ben;
                                $hash .= $tissdt_nom_ben;

                                
                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['profissionalSolicitante']['nomeProfissional'] = $tissdt_nom_prf;
                                $hash .= $tissdt_nom_prf;

                                
                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['profissionalSolicitante']['telefoneProfissional'] = $tissdt_tel_prf;
                                $hash .= $tissdt_tel_prf;
                                
                                if(strlen($tissdt_ind_cln) > 0){
                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['justificativaTecnica'] = $tissdt_ind_cln;
                                    $hash .= $tissdt_ind_cln;
                                
                                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['especificacaoMaterial'] = $tissdt_ind_cln;
                                    $hash .= $tissdt_ind_cln; 
                                }
                            }


                            if (strlen($tissdtopmsol_cod) < 8)
                                while (strlen($tissdtopmsol_cod) < 8)
                                    $tissdtopmsol_cod = '0' . $tissdtopmsol_cod; 

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['opmeSolicitadas_'.$count]['opmeSolicitada']['identificacaoOPME']['codigoTabela'] = $tissdtopmsol_tab;
                            $hash .= $tissdtopmsol_tab;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['opmeSolicitadas_'.$count]['opmeSolicitada']['identificacaoOPME']['codigoProcedimento'] = $tissdtopmsol_cod;
                            $hash .= $tissdtopmsol_cod;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['opmeSolicitadas_'.$count]['opmeSolicitada']['identificacaoOPME']['descricaoProcedimento'] = $tissdtopmsol_nom;
                            $hash .= $tissdtopmsol_nom;

                            if (strlen($tissdtopmsol_opc_frn) == 0) $tissdtopmsol_opc_frn = '1';
                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['opmeSolicitadas_'.$count]['opmeSolicitada']['opcaoFabricante'] = $tissdtopmsol_opc_frn;
                            $hash .= $tissdtopmsol_opc_frn;

                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['opmeSolicitadas_'.$count]['opmeSolicitada']['quantidadeSolicitada'] = $tissdtopmsol_qtd;
                            $hash .= $tissdtopmsol_qtd;

                            if (strlen($tissdtopmsol_vlr_uni) > 1) {
                                $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['opmeSolicitadas_'.$count]['opmeSolicitada']['valorSolicitado'] = $tissdtopmsol_vlr_uni;
                                $hash .= $tissdtopmsol_vlr_uni;
                            }
                            
                            if(strlen($tissdtopmsol_reg_msa) == 0) {
                                $erro = TRUE;
                                $msg = 'tissdt_num: ' . $tissdt_num . ' Pac: '.$pac_cod . ' - OPME sem registro ANS';   
                            }
                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['opmeSolicitadas_'.$count]['opmeSolicitada']['registroANVISA'] = $tissdtopmsol_reg_msa;
                            $hash .= $tissdtopmsol_reg_msa;
                            
                            if(strlen($tissdtopmsol_nom_fab) == 0) $tissdtopmsol_nom_fab = $tissdtopmsol_ref_frn;
                            if(strlen($tissdtopmsol_nom_fab) == 0) $tissdtopmsol_nom_fab = 'ASSOC HOSP BENEF SAO VICENTE PAULO';
                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['opmeSolicitadas_'.$count]['opmeSolicitada']['codigoRefFabricante'] = $tissdtopmsol_nom_fab; // $tissdtopmsol_ref_frn
                            $hash .= $tissdtopmsol_nom_fab; // $tissdtopmsol_ref_frn
                            
                            
                            if(strlen($tissdtopmsol_num_aut_frn) == 0) $tissdtopmsol_num_aut_frn = 1;
                            $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['opmeSolicitadas_'.$count]['opmeSolicitada']['autorizacaoFuncionamento'] = $tissdtopmsol_num_aut_frn; 
                            $hash .= $tissdtopmsol_num_aut_frn;


                            $count++;   
  
                        }

                        //if($count > 0){
                        //    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['anexoClinicoProrrogacao']['solicitacaoOPME']['Observacao'] = $tissdt_obs;
                        //    $hash .= $tissdt_obs; 
                        //}
                    }
                    
                    // gambiara para unimed, enviar valores por observação
                    if(strlen($observacao_valor) > 0){
                        $tissdt_obs .= '. '. $observacao_valor;
                    }
                    
                    if(strlen($tissdt_obs) > 0){
                        $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['observacao'] = $tissdt_obs;
                        $hash .= $tissdt_obs; 
                    }
                    
                    $dataVersao['solicitacaoProcedimento']['solicitacaoProrrogacao']['dataSolicitacao'] = $tissdt_dat_emi_gui;
                    $hash .= $tissdt_dat_emi_gui;

                    $dataVersao['hash'] = md5($hash);
                }
                
                //echo '<pre>';print_r($dataVersao);
                
                $xml = xml::arraytoXml($dataVersao, 'mensagemTISS');
                
                //$xml = xml::ajustaVersaoXml($xml); 
                $xml = xml::ajustaVersaoXmlKey($xml,'quimio'); 
                $xml = xml::ajustaVersaoXmlKey($xml,'opme'); 
                
                //echo xml::xmlToArray($xml);
                        
                $estrutura = $funcoes->verificarDiretorios();

                $arq_xml_xml = 'arquivos/xml/'     . $estrutura . $sequencialTransacao . '.xml';
                $arq_xml_env = 'arquivos/xml_env/' . $estrutura . $sequencialTransacao . '.xml';
                $arq_xml_err = 'arquivos/xml_err/' . $estrutura . $tissdt_num . '.xml';
                $arq_xml_rtn = 'arquivos/xml_rtn/' . $estrutura . $sequencialTransacao . '.xml';

                $guia_nome = $arq_xml_env;//$funcoes->gerarNomeArquivo($sequencialTransacao,md5($hash)); 

                if($erro == FALSE) {

                    file_put_contents($arq_xml_xml, $xml);

                    $xml = file_get_contents($arq_xml_xml);
                    $xml = xml::xmlToArray($xml); // CUIDADO SE TIVER UM VALOR VAZIO - VAI O VALOR O TEXTO ARRAY, DESTA FORMA OCORRE ERRO
                    $xml['hash'] = xml::hashToArray($xml); 

                    @unlink($arq_xml_xml);

                    $xml_arq = xml::arraytoXml($xml, 'mensagemTISS');
                    $xml_arq = xml::ajustaVersaoXml($xml_arq); 
                    file_put_contents($arq_xml_env, $xml_arq); 
                    
                    $xml = xml::xmlToArray($xml_arq); // realizado nova leitura por causa do erro de mais de um procedimento
                    
                    //echo '<pre>';print_r($xml);exit();
                    
                    $result_xml = $clientSoap->tissSolicitacaoProcedimento($xml);
                    //echo '<br>'; print_r($result); 

                    $xml_arq = xml::objectToArray($result_xml);
                    //print_r($xml_arq);
                    $xml_arq = xml::arraytoXml($xml_arq, 'mensagemTISS');
                    $xml_arq = xml::ajustaVersaoXml($xml_arq);
                    file_put_contents($arq_xml_rtn, $xml_arq); 

                    $query = "UPDATE tistrn SET tistrn_ftp_sta='E',tistrn_ftp_nom = '".$guia_nome."', tistrn_ftp_cam = '".$arq_xml_env."' WHERE tistrn_num=".$sequencialTransacao." ";
                    $result = odbc_exec($bd_ingres, $query);
                    if($result == FALSE){
                        $erro = TRUE;
                        $msg = 'tissdt_num: ' . $tissdt_num . ' Pac: '.$pac_cod . ' - Erro update tistrn';
                    }
                    
                    $pac_nom = '';
                    $query = "SELECT pac_nom,pac_sbn FROM pac WHERE pac_cod = " . $pac_cod;
                    $result = odbc_exec($bd_ingres, $query);
                    while (odbc_fetch_row($result)){
                        $pac_nom =  odbc_result($result, 'pac_nom');
                        $pac_nom .=  ' '.odbc_result($result, 'pac_sbn');
                    }
                    

                    @$senha = $result_xml->autorizacaoProcedimento->autorizacaoProrrogacao->autorizacaoDosServicos->dadosAutorizacao->senha;
                        
                    $msg = $count_envio.' - Guia: '.$tissdt_num.' - Senha: '.$senha.' - Paciente: '.$pac_cod.' - '.$pac_nom.' - Carteira: '.$tissdt_num_crt.' - Senha principal:'.$snh_gui_pri.' | Numero Transação: '.$sequencialTransacao;                    
                    
                    if($erro == FALSE) {
                        
                        // trocar status para E se senha > 0
                        if(strlen($senha) > 0){
                            
                            $result = odbc_exec($bd_ingres,"UPDATE tissdtpcd SET tissdtpcd_sta = 'E' WHERE tissdtpcd_sta <> 'C' AND tissdt_num = ".$tissdt_num." AND fil_cod = ".$fil_cod." AND emp_cod = ".$emp_cod." ");
                            
                            $result = odbc_exec($bd_ingres,"UPDATE tissdtopmsol SET tissdtopmsol_sta = 'E' WHERE tissdtopmsol_sta <> 'C' AND tissdt_num = ".$tissdt_num." AND fil_cod = ".$fil_cod." AND emp_cod = ".$emp_cod." ");
                            
                            $query = "update tissdt set tissdt_sta='E', tissdt_trn='".$sequencialTransacao."' WHERE con_cod=".$tissdt_num_con_cod." AND tissdt_tpo_env='S' AND tissdt_sta='P' AND tissdt_num=".$tissdt_num;
                            $result = odbc_exec($bd_ingres, $query);
                            
                            $resultado = $retorno->Processamento($result_xml,'INT_VNC');
                            
                            if($resultado == TRUE && $result != FALSE){
                                odbc_commit($bd_ingres);
                                //echo 'COMMIT<br>';
                                echo $msg .= ' - Enviado e processado retorno!<br><br>';
                            }
                            else{
                                odbc_rollback($bd_ingres);
                                //echo 'ROLLBACK<br>';
                                echo $msg .= ' - Enviado, erro no processo de retorno!<br><br>'; 
                                file_put_contents($arq_xml_err, $msg);
                                if(ENVIO_EMAIL) $funcoes->emailError($msg);
                            }
							
                             
                            
                        }else{
                            odbc_rollback($bd_ingres);
                            if(!isset($result_xml->autorizacaoProcedimento->autorizacaoProrrogacao->autorizacaoDosServicos->statusSolicitacao)){
                                $msg = 'Erro: '.$result_xml->autorizacaoProcedimento->mensagemErro->descricaoGlosa.'<br>'.$msg;  
                            }
                            
                            if(strlen($senha) == 0){
                                $query = "SELECT tissdtpcd_qtd_pcd_sol, tissdtpcd_tab_pcd_sol, tissdtpcd_cod_pcd_sol, tissdtpcd_des_pcd_sol, tissdtpcd_num, tissdtpcd_nom_pcd_sol
                                FROM tissdtpcd
                                WHERE tissdtpcd_sta <> 'C' AND tissdt_num=" . $tissdt_num;
                                $result = odbc_exec($bd_ingres, $query);
                                $msg .= ' - Procedimentos(';
                                while (odbc_fetch_row($result)){
                                    $cod = odbc_result($result, 'tissdtpcd_cod_pcd_sol'); 
                                    $nom = odbc_result($result, 'tissdtpcd_nom_pcd_sol');
                                    $qtd = odbc_result($result, 'tissdtpcd_qtd_pcd_sol');
                                    $msg .= 'cod:'.$cod.' | nom:'.$nom.' | qtd:'.$qtd;
                                }
                                $msg .= ')';
                            }
                            
                            echo $msg .= ' - Enviado, erro no processo de retorno!<br><br>'; 
                            file_put_contents($arq_xml_err, $msg);
                            if(ENVIO_EMAIL) $funcoes->emailError($msg);
                        }
                        
                    }else{
                        odbc_rollback($bd_ingres);
                        echo $msg .= ' - Enviado, erro no processo de retorno!<br><br>'; 
                        file_put_contents($arq_xml_err, $msg); 
                        if(ENVIO_EMAIL) $funcoes->emailError($msg);
                    }               

                } else {
                    odbc_rollback($bd_ingres);
                    echo $msg = '<br>Erro: Guia: '.$tissdt_num.' Pac: '.$pac_cod.' - ' . $msg . '.<br>';
                    @unlink($arq_xml);
                    file_put_contents($arq_xml_err, $msg); 
                    if(ENVIO_EMAIL) $funcoes->emailError($msg);
                    /*
                    // correção erro ANS
                    if(strlen($tissdtopmsol_reg_msa) == 0 && $tissdt_tpooritis_sgl == 'SMM') {
                        $query = "UPDATE tissdtopmsol t FROM tissdt t1
                                    set tissdtopmsol_tab='20'
                                    where t1.tissdt_num = ".$tissdt_num." 
                                    and t1.tissdt_tpooritis_sgl='SMM'
                                    and t1.tissdt_num=t.tissdt_num
                                    and t1.fil_cod=t.fil_cod
                                    and t1.emp_cod=t.emp_cod
                                    and tissdtopmsol_tab='19'";
                        echo $query.'<br>';
                        $result = odbc_exec($bd_ingres, $query);
                        odbc_commit($bd_ingres);
                    }
                    */
                }
            }

        }
        else{
            
            $query = "update tissdt set tissdt_sta='E' WHERE con_cod = ".$tissdt_num_con_cod." AND tissdt_tpo_env = 'S' AND tissdt_sta = 'P' AND tissdt_num = ".$tissdt_num;
            odbc_exec($bd_ingres, $query);
            odbc_commit($bd_ingres);
            
        }
        
    } catch (Exception $exc) {
        odbc_rollback($bd_ingres);
        echo $msg = '<br>Erro Acesso Webservice Unimed (Guia: '.$tissdt_num.' Pac: '.$pac_cod.') - Descrição erro: '.$exc->faultstring.'<br>';
        file_put_contents($arq_xml_err, $msg);
        if(ENVIO_EMAIL) $funcoes->emailError($msg);
        break;
    }
}

odbc_close($bd_ingres);

?>